home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aah.d64 / func.get'input$ < prev    next >
Text File  |  2007-02-28  |  1KB  |  42 lines
  1. 0010 //
  2. 0020 ╞╒╬├ GET'INPUT$(DEFAULT$,MAX'LEN,VALID$,MODEM,MAX'TIME) ├╠╧╙┼─
  3. 0030   ╔═╨╧╥╘ DEL$,CR$,FF$
  4. 0040   ╒╙┼ FILES
  5. 0050   ─╔═ C$ ╧╞ 1, STRING$ ╧╞ MAX'LEN
  6. 0060   STRING$:=DEFAULT$
  7. 0070   ╨╥╔╬╘ ╞╔╠┼ MODEM: STRING$,
  8. 0080   ╘╔═┼ 0
  9. 0090   ╥┼╨┼┴╘ 
  10. 0100     ╥┼╨┼┴╘ 
  11. 0110       C$:=GETSP$(MODEM,0)
  12. 0120       ╔╞ ╘╔═┼>MAX'TIME*60 ╘╚┼╬
  13. 0130         ╥┼╨╧╥╘ 300,"╧UT OF TIME"
  14. 0140       ┼╬─╔╞ 
  15. 0150     ╒╬╘╔╠ C$>""0""
  16. 0160     ├┴╙┼ C$ ╧╞
  17. 0170     ╫╚┼╬ DEL$ // DELETE CHARACTER
  18. 0180       STR'LEN:=╠┼╬(STRING$)
  19. 0190       ╔╞ STR'LEN>1 ╘╚┼╬
  20. 0200         STRING$:=STRING$(:STR'LEN-1)
  21. 0210         ╨╥╔╬╘ ╞╔╠┼ MODEM: DEL$,
  22. 0220       ┼╠╔╞ STR'LEN=1 ╘╚┼╬
  23. 0230         STRING$:=""
  24. 0240         ╨╥╔╬╘ ╞╔╠┼ MODEM: DEL$,
  25. 0250       ┼╬─╔╞ 
  26. 0260     ╫╚┼╬ FF$ // CLEAR SCREEN
  27. 0270       ╞╧╥ X:=1 ╘╧ ╠┼╬(STRING$) ─╧
  28. 0280         ╨╥╔╬╘ ╞╔╠┼ MODEM: DEL$,
  29. 0290       ┼╬─╞╧╥ X
  30. 0300       STRING$:=""
  31. 0310     ╫╚┼╬ CR$ // CARRIAGE RETURN
  32. 0320       ╬╒╠╠
  33. 0330     ╧╘╚┼╥╫╔╙┼ 
  34. 0340       ╔╞ ╠┼╬(STRING$)<MAX'LEN ┴╬─ C$ ╔╬ VALID$ ╘╚┼╬
  35. 0350         STRING$:+C$
  36. 0360         ╨╥╔╬╘ ╞╔╠┼ MODEM: C$,
  37. 0370       ┼╬─╔╞ 
  38. 0380     ┼╬─├┴╙┼ 
  39. 0390   ╒╬╘╔╠ C$=CR$
  40. 0400   ╥┼╘╒╥╬ STRING$
  41. 0410 ┼╬─╞╒╬├ GET'INPUT$
  42.